home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / mapset.for < prev    next >
Text File  |  1991-04-13  |  345b  |  13 lines
  1.         SUBROUTINE MAPSET(XLEFT,XRIGHT,YBOT,YTOP,CSIZE,TKLN,LRAXIS)
  2.     IMPLICIT NONE
  3.     REAL*4 XLEFT,XRIGHT,YBOT,YTOP,CSIZE,TKLN
  4.         LOGICAL*2 LRAXIS
  5. C
  6.         INCLUDE DIGLIB$KOM:GCDCHR.PRM
  7. C
  8. C
  9.         CALL MAPPRM(XLEFT*XLENCM/100.0,XRIGHT*XLENCM/100.0,
  10.      1   YBOT*YLENCM/100.0,YTOP*YLENCM/100.0,CSIZE,TKLN,LRAXIS)
  11.         RETURN
  12.         END
  13.